home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / mod / AddOn / photogenics2.mod < prev    next >
Encoding:
Text File  |  2000-01-26  |  844 b   |  41 lines
  1. /* $VER: HTMLEXT Modul: photogenics2.mod V 0.1.4 by Juan Manuel Wehrli 1999
  2.    Voraussetzung:  Photogenics 2
  3.  */
  4.  
  5. if ~show("L",rexxreqtools.library) then do
  6.     call addlib("rexxreqtools.library",0,-30,0)
  7. end
  8. if ~show("L",rexxtricks.library) then do
  9.     call addlib("rexxtricks.library",0,-30,0)
  10. end
  11.  
  12. NL = '0a'x
  13.  
  14. PARSE ARG befehl file
  15. OPTIONS RESULTS
  16.  
  17. ADDRESS COMMAND
  18. if befehl = OPENNEW then do
  19.     if ~show('P','PHOTOGENICS.1') then do
  20.         'c:WBrun <>NIL: Photogenics:Photogenics'
  21.         'sys:rexxc/WaitForPort PHOTOGENICS.1'
  22.     end
  23.     ADDRESS PHOTOGENICS.1
  24.     file = STRIP(file)
  25.     PGSTOFRONT
  26.     LOAD '"' || file || '"'
  27. end
  28.  
  29.  
  30. if befehl = OPENNEWS then do
  31.     if ~show('P','PHOTOGENICS.1') then do
  32.         'c:WBrun <>NIL: Photogenics:Photogenics'
  33.         'sys:rexxc/WaitForPort PHOTOGENICS.1'
  34.     end
  35.     file = STRIP(file)
  36.     ADDRESS PHOTOGENICS.1
  37.     PGSTOFRONT
  38.     LOAD '"' || file || '"'
  39. end
  40.  
  41.